home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-09-12 | 1.3 KB | 44 lines | [TEXT/ttxt] |
- #! /bin/sh
- # -*- mode: CL -*- -------------------------------------------- #
- # File: Make-Zebu-Compiler
- # Description:
- # Author: Joachim H. Laubsch
- # Created: 20-Jan-93
- # Modified: Tue Apr 19 14:45:14 1994 (Joachim H. Laubsch)
- # Language:
- # Package: USER
- # Status: Experimental (Do Not Distribute)
- # RCS $Header: $
- #
- # (c) Copyright 1993, Hewlett-Packard Company
- ##############################################################################
- # Revisions:
- # RCS $Log: $
- ##############################################################################
-
- echo "Make the Zebu Compiler"
-
- export ZEBU
- set +u
-
- $LISP/lucid-de -n $* << EOF 2>&1 | tee /tmp/Make-Zebu-Compiler.log
-
- (unless (environment-variable "ZEBU")
- (warn "Unix Environment Variable: ZEBU is unbound")
- (quit))
-
- (setf (working-directory) (environment-variable "ZEBU"))
- (load "ZEBU-init.lisp")
-
- (zb::zebu-compiler)
- (setq *enter-top-level-hook* #'zb::compile-from-command-line)
- (discard-source-file-info)
-
- (DISKSAVE "./Zebu-Compiler" :FULL-GC T :WRITABLE T :VERBOSE T)
- (quit)
- EOF
-
- ##############################################################################
- ## End of Make-Zebu-Compiler
- ##############################################################################
-